home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / RLaB 1.15c / examples / factest.r < prev    next >
Encoding:
Text File  |  1994-09-20  |  134 b   |  12 lines  |  [TEXT/RLAB]
  1. factest = function ( n )
  2. {
  3.   i = 0; x = 50;
  4.   while( i < n )
  5.   {
  6.     fac( x );
  7.     i++;
  8.   }
  9.   printf("factest done, n = %i\n", n);
  10. }
  11.  
  12.